module coeficientes
 use parametros
 
 contains
 function coef(s1,s2,j,k)
 implicit none
 complex*16:: coef
 integer::j,k,s1,s2
 
   if(s1==1 .and. s2 ==1)then
   coef=(1.0d0,0.0d0)/sqrt(2.0d0)
			endif						
   if(s1==1 .and. s2 ==2)then
   coef=(1.0d0,0.0d0)/sqrt(2.0d0)
			endif						
   if(s1==1 .and. s2 ==3)then
   coef=(0.0,0.0)
			endif
   if(s1==1 .and. s2 ==4)then
   coef=(0.0,0.0)
			endif

   if(s1==2 .and. s2 ==1)then
   coef=(1.0d0,0.0d0)/sqrt(2.0d0)
			endif						
   if(s1==2 .and. s2 ==2)then
   coef=(-1.0d0,0.0d0)/sqrt(2.0d0)
			endif						
   if(s1==2 .and. s2 ==3)then
   coef=(0.0,0.0)
			endif
   if(s1==2 .and. s2 ==4)then
   coef=(0.0,0.0)
			endif
			 
			if(s1==3 .and. s2 ==1)then
   coef=(0.0,0.0)
			endif						
   if(s1==3 .and. s2 ==2)then
   coef=(0.0,0.0)
			endif						
   if(s1==3 .and. s2 ==3)then
   coef=(1.0d0,0.0d0)/sqrt(2.0d0)
			endif
   if(s1==3 .and. s2 ==4)then
   coef=(1.0d0,0.0d0)/sqrt(2.0d0)
			endif
			
			if(s1==4 .and. s2 ==1)then
   coef=(0.0,0.0)
			endif						
   if(s1==4 .and. s2 ==2)then
   coef=(0.0,0.0)
			endif						
   if(s1==4 .and. s2 ==3)then
   coef=(1.0d0,0.0d0)/sqrt(2.0d0)
			endif
   if(s1==4 .and. s2 ==4)then
   coef=(-1.0d0,0.0d0)/sqrt(2.0d0)
			endif
				
  end function coef
  
 end module coeficientes



